home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / toolbar / spltrcls / hsplittr.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-11-14  |  3.7 KB  |  113 lines
  1. VERSION 4.00
  2. Begin VB.Form frmHSplitter 
  3.    Caption         =   "Horizontal Splitter Test"
  4.    ClientHeight    =   2865
  5.    ClientLeft      =   1260
  6.    ClientTop       =   4800
  7.    ClientWidth     =   5595
  8.    Height          =   3270
  9.    Left            =   1200
  10.    LinkTopic       =   "Form1"
  11.    LockControls    =   -1  'True
  12.    ScaleHeight     =   2865
  13.    ScaleWidth      =   5595
  14.    Top             =   4455
  15.    Width           =   5715
  16.    Begin VB.PictureBox picHContainer 
  17.       Appearance      =   0  'Flat
  18.       BackColor       =   &H00C0C0C0&
  19.       BorderStyle     =   0  'None
  20.       ForeColor       =   &H80000008&
  21.       Height          =   2640
  22.       Left            =   105
  23.       ScaleHeight     =   2640
  24.       ScaleWidth      =   5370
  25.       TabIndex        =   0
  26.       Top             =   105
  27.       Width           =   5370
  28.       Begin VB.TextBox txtBottom 
  29.          ForeColor       =   &H00000000&
  30.          Height          =   1170
  31.          Left            =   105
  32.          MultiLine       =   -1  'True
  33.          ScrollBars      =   2  'Vertical
  34.          TabIndex        =   3
  35.          Text            =   "HSplittr.frx":0000
  36.          Top             =   1365
  37.          Width           =   5160
  38.       End
  39.       Begin VB.TextBox txtTop 
  40.          ForeColor       =   &H00000000&
  41.          Height          =   1170
  42.          Left            =   105
  43.          MultiLine       =   -1  'True
  44.          ScrollBars      =   2  'Vertical
  45.          TabIndex        =   2
  46.          Text            =   "HSplittr.frx":00C2
  47.          Top             =   105
  48.          Width           =   5160
  49.       End
  50.       Begin VB.PictureBox picHSplitter 
  51.          BackColor       =   &H00C0C0C0&
  52.          BorderStyle     =   0  'None
  53.          DrawMode        =   1  'Blackness
  54.          DrawStyle       =   5  'Transparent
  55.          Height          =   45
  56.          Left            =   105
  57.          MouseIcon       =   "HSplittr.frx":0181
  58.          MousePointer    =   99  'Custom
  59.          ScaleHeight     =   45
  60.          ScaleWidth      =   5265
  61.          TabIndex        =   1
  62.          Top             =   1260
  63.          Width           =   5265
  64.       End
  65.    End
  66. Attribute VB_Name = "frmHSplitter"
  67. Attribute VB_Creatable = False
  68. Attribute VB_Exposed = False
  69. Option Explicit
  70. ' form position constants
  71. Const FORM_LEFT = 360
  72. Const FORM_TOP = 360
  73. ' splitter position and offsets
  74. Const SPLITTER_LEFT = 105
  75. Const SPLITTER_TOP = 105
  76. Const SPLITTER_WIDTH_OFFSET = 315
  77. Const SPLITTER_HEIGHT_OFFSET = 600
  78. ' splitter object
  79. Dim moHSplitter As CHorizontalSplitter
  80. Private Sub Form_Load()
  81.    ' position
  82.    Me.Move FORM_LEFT, FORM_TOP
  83.    ' instantiate the splitter object
  84.    Set moHSplitter = New CHorizontalSplitter
  85.    moHSplitter.Init picHContainer, picHSplitter, _
  86.       txtTop, txtBottom
  87. End Sub
  88. Private Sub Form_Resize()
  89.    ' resize the container
  90.    If Me.WindowState <> vbMinimized Then
  91.       moHSplitter.Move SPLITTER_LEFT, _
  92.          SPLITTER_TOP, _
  93.          Me.Width - SPLITTER_WIDTH_OFFSET, _
  94.          Me.Height - SPLITTER_HEIGHT_OFFSET
  95.    End If
  96. End Sub
  97. Private Sub Form_Unload(Cancel As Integer)
  98.    ' release the splitter object
  99.    Set moHSplitter = Nothing
  100. End Sub
  101. Private Sub picHSplitter_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  102.    ' record event
  103.    moHSplitter.MouseDown
  104. End Sub
  105. Private Sub picHSplitter_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  106.    ' record event
  107.    moHSplitter.MouseMove Y
  108. End Sub
  109. Private Sub picHSplitter_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  110.    ' record event
  111.    moHSplitter.MouseUp
  112. End Sub
  113.